﻿Public Class FavoriteTimeZones

    Public Sub New()

        ' This call is required by the designer.
        InitializeComponent()


    End Sub


    Private Sub FavoriteTimeZones_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
        Dim tzs As New System.Collections.Hashtable
        Dim ds As System.Data.DataSet
        ds = InternationalTimes.GetLocationsTimeZones()

        Dim dr As System.Data.DataRow

        For Each dr In ds.Tables("TZMap").Rows
            Try
                tzs.Add(dr.Item("TimeZone"), dr.Item("Location"))
            Catch
            End Try
        Next

        Dim f As New TZMatrix(tzs)
        Me.Controls.Add(f)
        f.Anchor = Windows.Forms.AnchorStyles.Bottom Or Windows.Forms.AnchorStyles.Left Or Windows.Forms.AnchorStyles.Right Or Windows.Forms.AnchorStyles.Top
        f.Size = Me.Size
        f.Top = Me.Ribbon1.Bottom
        Me.Ribbon1.QuickAccessVisible = False
        Me.Height = 500

    End Sub
End Class